R/01 - Create Transactional Full DF.R

In ultramattyice/traumaR: This package was created to manipulate the Pennsylvania Trauma Outcome System (PTOS) data.

#' Combines all the transactional data together
#'
#' @param .data Pulls the clean pto_df
#'
#' @return  Transactional dataframe
#' @export
create_full_trans <- function(.data){

  message("Running Procedures")
  .proc_df <- create_proc_df(.data)
  message("Running Diagnosis")
  .diag_df <- create_diag_df(.data)
  message("Running Complications")
  .comp_df <- create_complic_df(.data)
  message("Running Injury")
  .inj_df <- create_injury_df(.data)
  message("Running Arrival, and Discharge")
  .arr_df <- create_arrival_discharge_df(.data)
  message("Running Transportation")
  .trans_df <- create_transportation_df(.data)

  # Row Bind all the transaction data together
  message("Joining it all together")
  .full_trans <- rbind(.proc_df, .diag_df)
  .full_trans <- rbind(.full_trans, .comp_df)
  .full_trans <- rbind(.full_trans, .inj_df)
  .full_trans <- rbind(.full_trans, .arr_df)
  .full_trans <- rbind(.full_trans, .trans_df)

  message("Reordering the transactions")
  .full_trans <- .full_trans %>%
    arrange.(id, date)

  #return(.full_trans)

  assign(paste("trans_full_df"), data.frame(.full_trans), envir = .GlobalEnv)

}